home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mathfl / mf_limit.bas < prev    next >
Encoding:
BASIC Source File  |  1993-02-19  |  1001 b   |  32 lines
  1. Option Explicit
  2.  
  3. Rem global module has definitions for both shareware and non-shareware
  4. Rem versions of mathflash.
  5.  
  6. Global student_name As String
  7. Global rnd1, rnd2, answer, answer_flag As Integer
  8. Global case_index, iteration, highscore As Integer
  9. Global upper_limit, num_right  As Integer
  10. Global percent_correct As Double
  11. Global rnd1_objects(), rnd2_objects, reward(), rnd3_objects
  12. Global reward_counter, rnd_box As Integer
  13. Global correct_answer As Integer
  14.  
  15. Type rec_layout
  16.     name            As String * 25
  17.     time            As String * 10
  18. End Type
  19.  
  20. Global student_rec As rec_layout
  21. Global lastrecord As Long
  22. Global cur_pos As Long
  23. Global objects
  24.  
  25. Rem sound drivers
  26. Declare Function closesound Lib "sound.drv" () As Integer
  27. Declare Function opensound Lib "sound.drv" () As Integer
  28. Declare Function SetVoiceSound Lib "sound.drv" (ByVal nSource%, ByVal Freq&, ByVal nDuration%) As Integer
  29. Declare Function StartSound Lib "sound.drv" () As Integer
  30. Global i As Integer
  31.  
  32.